home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 7
/
Aminet 7 - August 1995.iso
/
Aminet
/
comm
/
mebbs
/
deepspac.lha
/
DS1_91.LHA
/
DS_TA.LHA
/
Rexx
/
DeepSpace.trans
Wrap
Text File
|
1994-08-03
|
794b
|
34 lines
/* DeepSpace.trans */
OPTIONS FAILAT 999 /* Keeps users out of the shell! */
OPTIONS RESULTS
CALL PRAGMA('stack',50000)
USERINFO A ; name = UPPER(RESULT)
sname=word(name,1)
nname=word(name,2)
SYSTEMINFO M ; time = RESULT
SYSTEMINFO 8 ; line = RESULT
id=time(s)
CLS
transmit "Loading Deep Space..."
SetNodeLocation Name' is playing Deep Space'
path='t:ds-'||sname||nname||'.'line /* change this to reflect your directory path */
OPEN(temp,path,'W')
WRITELN(temp,'FailAt 99999')
WRITELN(temp,'CD BBS:Extras/DeepSpace')
WRITELN(temp,'DeepSpace '||name||' T='||time||' D=60000')
WRITELN(temp,'endcli')
CLOSE(temp)
ADDRESS COMMAND 'NewShell FIFO:ds'id'/rwkecs from 'path
ADDRESS COMMAND 'BBS:Bin/TrShell -n'line' -d -e -fds'id
ADDRESS COMMAND 'Delete 'path' quiet'
EXIT 0